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012 



123 



05c 



130 



•TITLE TSNAME - Site name 

. t.Hr»i3i_ i_u 

; Copyright 1981. 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989. 
; S&H Computer Systems, Inc. 
i Nashville, Tennessee 

. PSECT CBNAME 

. GLOBL suns, sues, TSXLN, GRTl, SUPCOD, TRGRET, LICTXT, NAMTOP, MDT 

. GLOBL DISTRB, SITE, LICENS, LIGNUM, MNUAOT 
MICRO = 

MACRO NAME TEXT i Store text string 8< compute checksum for it. 

. IRPC CHAR, <TEXT> 

.BYTE -<"CHAR> 

sues 



NAME 



TSXLN 
MNUAOT 



sues 

MDT 
GRTl: 



sues 

SUMS 

NAME 

NAME 

NEWLIN 

NAME 

NEWLIN 

NAME 

NEWLIN 

NAME 



= 


sues- ' 


'CHAR 


. ENDM 






. ENDM 


NAME 




. MACRO 


SNAME 


TEX 


NAME 


<'TEXT 


> 



IF 



; Macro to define site name 



; allocate enough space for 30 char (micro) 



NE, MICRO 

. NCHR $*1i, <'TEXT> 

. REPT 30. -*** 

NAME < > 
, ENDR 
ENDC 

ENDM SNAME 

MACRO LICENSE NUMBER, NUM2 
:'NUMBER> 

IF NE, MICRO ; allocate enough space for 5 digits <micro) 
. NC HR ***,<' NUMB ER > 
. REPT 5. -*** 

NAME < > 



J Macro to define license # 



. ENDR 



ENDC 



j Macro to store <CR><LF> into the text string. 



•-^D 'NUMBER 

•'^D'NUM2 
. ENDM LICENSE 
. MACRO NEWLIN 
.BYTE <-15>, <~12> 

sues- 15- 12 
. ENDM NEWLIN 

0. 
. NLIST BEX 
. ASCII <15><12>/* / 
. IF NE, MICRO 

.ASCII \Miiro/\ 
. ENDC 

. ASCIZ /TSX-Plus Version 6. 40 */<12> 
. EVEN 

; INITIALIZE CHECKSUM 

.+1246 iENCRIPT ADDRESS 

<Copyright (c) 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 198S> 
<, 1989> 

<an unpublished ujork by S?^H Computer Systems, Inc., Nashville, TN, USA> 

<(S&H) covered by U.S. Patent No. 4,642,756. All rights reserved. > 

<This material contains the valuable properties and trade secrets of S&H> 
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Errors detected: 



NEWLIN 

NAME 

NEWLIN 

NAME 

DISTR13: 

NAME 

NEWLIN 

NAME 

TRORET: 

NAME 

SITE: 

NAME 

NEWL I N 

LICTXT: 

NAME 

LICENS: 

NAME 

NAME 

NAME 

NAME 

SUPCOD: 

NAME 

NAME 

LIGNUM: 

LICENSE 

NEWLIN 



sues 

NAMTOP: 



<and may not be used except fay the express juritten permission of 3&H, 

<Di5tributed by > 

<S«<H Computer Systems* Inc. > 

<Licensed for use on a single computer system > 

<at > 

<SS.:H Computer Systems* Inc.> 

<Li cense # = > 
<;999> 

<T> 

■:'" p ~> 

<s> 

,•■" — '^. 



<00044>, <487S> 

. BYTE 
. EVEN 

<-SUCS>+l 

. END 



i END OF COPYRIGHT LINE 

iENCRIPT CHECKSUM SLIGHTLY 
; TOP OF TSNAME MODULE 



*»* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8520 Words < 34 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:13.41 

, LP: TSNAME=DK: TSNAME/C/N: SYM 
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MDT 

MICRO 
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NAMTOP 

SITE 
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l-57# 

1~57# 
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i-61# 
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i-61# 
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